% This was sort of cribbed from lfonts.tex.
% I have no idea how close to correctness it is.
% However, it has worked on some files at 10pt.
%
% Unfortunately, I think that there is some kind of rounding
% problem in dvidoc itself.
%
% John Pavel, March 1987
% Extended by Rainer M. Sch"opf (RmS) <Schoepf@sc.ZIB-Berlin.de>
%

\typeout{Document style option `dvidoc', as of 14 Mar 1994.}

\ifx\selectfont\undefined
  \def\rm{\protect\pdoc}
  \def\it{\protect\pdoc}
  \def\bf{\protect\pdoc}
  \def\sl{\protect\pdoc}
  \def\sf{\protect\pdoc}
  \def\sc{\protect\pdoc}
  \def\tt{\protect\pdoc}
  \newfam\docfam
  \def\pdoc{\@getfont\pdoc\docfam\@xpt{doc}}
  \xpt

  \def\@setsize#1#2#3#4{\@nomath#1\let\@currsize#1\baselineskip
     #2\setbox\strutbox\hbox{\vrule \@height.7\baselineskip
        \@depth.3\baselineskip \@width\z@}%
     \baselineskip\baselinestretch\baselineskip
     \normalbaselineskip\baselineskip}

\else
\ifx\DeclareFontShape\undefined
  \new@fontshape{doc}{m}{n}{%
     <5>doc at5pt%
     <6>doc at6pt%
     <7>doc at7pt%
     <8>doc at8pt%
     <9>doc at9pt%
     <10>doc%
     <11>doc at10.95pt%
     <12>doc at12pt%
     <14>doc at14.4pt%
     <17>doc at17.28pt%
     <20>doc at20.74pt%
     <24>doc at23.888pt
     <25>doc at24.88pt%
     <29>doc at28.664pt%
     <34>doc at34.4pt%
     <41>doc at41.28pt%
     }{}
  \let\family=\@gobble
  \let\series=\@gobble
  \let\shape=\@gobble
\else
  \fontencoding{OT1}\let\fontencoding=\@gobble
  \DeclareFontShape{OT1}{doc}{m}{n}{<-> fixed * doc}{}
\fi
  \fontfamily{doc}\let\fontfamily=\@gobble
  \fontseries{m}\let\fontseries=\@gobble
  \fontshape{n}\let\fontshape=\@gobble
  \global\let\mathversion\@gobble
  \global\let\getanddefine@fonts\@gobbletwo
\fi

\font\docfont=doc

\count@=16
\loop
 \ifnum\count@ >0
  \advance\count@ by-1
  \global\textfont\count@=\docfont
  \global\scriptfont\count@=\docfont
  \global\scriptscriptfont\count@=\docfont
 \repeat

\baselineskip 12pt
\oddsidemargin 0pt \evensidemargin 0pt
\def\TeX{TeX}
\def\LaTeX{LaTeX}
\def\SliTeX{SliTeX}
\def\BibTeX{BibTeX}


\mathcode`\*="612A
\mathcode`\-="612D
\mathcode`\\="015C
\mathcode`\/="612F
\mathcode`\.="612E
\mathcode`\,="612C
%\mathcode`\{="417B
\mathcode`\|="417C
%\mathcode`\}="417D
\mathcode`\'="0127
\mathcode`\<="013C
\mathcode`\>="013E

\def\alpha{{\tt alpha}}
\def\beta{{\tt beta}}
\def\gamma{{\tt gamma}}
\def\delta{{\tt delta}}
\def\epsilon{{\tt epsilon}}
\def\zeta{{\tt zeta}}
\def\eta{{\tt eta}}
\def\theta{{\tt theta}}
\def\iota{{\tt iota}}
\def\kappa{{\tt kappa}}
\def\lambda{{\tt lambda}}
\def\mu{{\tt mu}}
\def\nu{{\tt nu}}
\def\xi{{\tt xi}}
\def\pi{{\tt pi}}
\def\rho{{\tt rho}}
\def\sigma{{\tt sigma}}
\def\tau{{\tt tau}}
\def\upsilon{{\tt upsilon}}
\def\phi{{\tt phi}}
\def\chi{{\tt chi}}
\def\psi{{\tt psi}}
\def\omega{{\tt omega}}
\def\varepsilon{{\tt varepsilon}}
\def\vartheta{{\tt vartheta}}
\def\varpi{{\tt varpi}}
\def\varrho{{\tt varrho}}
\def\varsigma{{\tt varsigma}}
\def\varphi{{\tt varphi}}
\def\Gamma{{\tt Gamma}}
\def\Delta{{\tt Delta}}
\def\Theta{{\tt Theta}}
\def\Lambda{{\tt Lambda}}
\def\Xi{{\tt Xi}}
\def\Pi{{\tt Pi}}
\def\Sigma{{\tt Sigma}}
\def\Upsilon{{\tt Upsilon}}
\def\Phi{{\tt Phi}}
\def\Psi{{\tt Psi}}
\def\Omega{{\tt Omega}}
\def\aleph{{\tt aleph}}
\def\ell{{\tt l}}
\def\Re{{\tt re}}
\def\Im{{\tt Im}}

\mathchardef\times="2178

\mathchardef\lbrace="417B %\let\{=\lbrace
\mathchardef\rbrace="417D %\let\}=\rbrace
\mathchardef\langle="413C
\mathchardef\rangle="413E
\mathchardef\ldotp="612E % ldot as a punctuation mark
\mathchardef\cdotp="622E % cdot as a punctuation mark
\mathchardef\colon="603A % colon as a punctuation mark

\def\rightarrow{{\tt ->}}
\def\leftarrow{{\tt <-}}
\def\Longleftrightarrow{{\tt <=>}}
\let\Longrightarrow\rightarrow
\let\Longleftarrow\leftarrow
\def\gg{{\tt >>}}
\def\ll{{\tt <<}}
\def\leq{{\tt <=}} \let\le=\leq
\def\geq{{\tt >=}} \let\ge=\geq
\def\equiv{{\tt ==}}
\def\lnot{{\tt not }}

\def\frac#1#2{((#1)/(#2))}

\def\"#1{\ifx #1aae\else
         \ifx #1ooe\else
         \ifx #1uue\else
         \ifx #1AAe\else
         \ifx #1OOe\else
         \ifx #1UUe\fi\fi\fi\fi\fi\fi}

\def\ss{ss}

\let\left\empty
\let\right\empty
\def\sum{\mathop{\hbox{\rm sum }}\limits}
\def\prod{\mathop{\hbox{\rm prod }}\limits}
\def\log{\mathop{\hbox{\rm log }}}
\def\exp{\mathop{\hbox{\rm exp }}}

\let\bullet=*

\def\to{{\tt ->}}
\def\circ{{\tt\ o }}
\def\mid{{\tt |}}
\def\parallel{{\tt ||}}

\advance\jot by 5pt
\advance\skip\footins by\baselineskip

% move footnote rule 6pt higher
\def\footnoterule{\kern-9\p@
  \hrule \@width 2in\kern 8.6\p@} % the \hrule is .4pt high


\renewcommand{\arraystretch}{2.0}

\let\xpt\relax
\let\xipt\relax
\let\xiipt\relax

\endinput
